PrintLn(VarType(123));
PrintLn(VarType(OleInt16(123)));
PrintLn(VarType(OleInt32(123)));
PrintLn(VarType(OleInt64(123)));
PrintLn(VarType(OleCurrency(123)));
PrintLn(VarType(OleDate(123)));
PrintLn(VarType(OleSingle(123)));
PrintLn(VarType(OleDouble(123)));
PrintLn(VarType(OleString('123')));